home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / PickStk.cpt / The Pick / card_2901.txt < prev    next >
Encoding:
Text File  |  1988-07-24  |  2.2 KB  |  121 lines
  1. -- card: 2901 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2801
  5. -- name: 
  6.  
  7.  
  8. -- part 3 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=0 top=173 right=338 bottom=197
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 2
  16. -- text size: 14
  17. -- style flags: 256
  18. -- line height: 18
  19. -- part name: 
  20.  
  21.  
  22. -- part 4 (button)
  23. -- low flags: 00
  24. -- high flags: 8003
  25. -- rect: left=213 top=236 right=264 bottom=343
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Sets of Numbers
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   put empty into card field 1
  37.   ask "How Many Sets of Numbers Do You Want?"
  38.   put it into x
  39.   put it into lines
  40.   repeat x times
  41.     get field 1
  42.     put it into a
  43.     get field 2
  44.     put it into b
  45.     get field 3
  46.     put it into c
  47.     get field 4
  48.     put it into d
  49.     get field 5
  50.     put it into e
  51.     get field 6
  52.     put it into f
  53.     put a && b && c && d && e && f & return into line lines of card field 1
  54.     put lines - 1 into lines
  55.     send mouseup to background button "New Pick"
  56.   end repeat
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part contents for background part 1
  62. ----- text -----
  63. 4
  64.  
  65. -- part contents for background part 2
  66. ----- text -----
  67. 36
  68.  
  69. -- part contents for background part 3
  70. ----- text -----
  71. 22
  72.  
  73. -- part contents for background part 4
  74. ----- text -----
  75. 11
  76.  
  77. -- part contents for background part 5
  78. ----- text -----
  79. 31
  80.  
  81. -- part contents for background part 6
  82. ----- text -----
  83. 6
  84.  
  85. -- part contents for background part 9
  86. ----- text -----
  87. Sunday, July 24, 1988
  88.  
  89. -- part contents for background part 10
  90. ----- text -----
  91. GOOD LUCK ON YOUR NUMBERS
  92.  
  93. -- part contents for card part 2
  94. ----- text -----
  95.  
  96.  
  97.  
  98. -- part contents for background part 11
  99. ----- text -----
  100. The Pick
  101.  
  102. -- part contents for background part 12
  103. ----- text -----
  104. The Pick
  105. By Michael & Staci Weatherwalks
  106. This Stack will Pick 6 Random Numbers from 
  107. 1 to 39  on Startup, for additional Numbers click on the Button (New Pick).
  108. This Stack Makes No Quarantee that you will win the Lottery
  109.  
  110. -- part contents for card part 3
  111. ----- text -----
  112. 2 26 23 17 14 24
  113.  
  114. 36 30 31 10 22 11
  115.  
  116. 6 16 25 5 8 15
  117.  
  118. 2 38 12 29 8 30
  119.  
  120. 16 17 35 25 1 12
  121.